perm filename CCIRC[SAB,LCS] blob sn#356903 filedate 1978-05-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CC	PROGRAM CCIRC
C00003 ENDMK
CāŠ—;
CC	PROGRAM CCIRC
	DIMENSION IBUF(5000)
	COMMON /FAC/JFAC,KFAC
	JFAC=50
	KFAC=50
 	CALL PLOTS(IBUF,5000,1)
 	CALL PLOT(15.,14.75,-3)
	DO 6 I=1,6
 	XC=0.
 	R=RAN(1)*10.
 	YC=RAN(1)*10.
	CALL CIRCL2(R,XC,YC)
6	CONTINUE
 	CALL DPYOUT(1)
 	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP
	END